Namespace BAL.Servicio
    Public Class DetallePlanServicio
        Public Function Grabar(ByVal _DetallePlanServicio As BEL.Servicio.DetallePlanServicio) As System.Boolean
            Dim _dal As New DAL.Servicio.DetallePlanServicio
            If _DetallePlanServicio.EsNuevo Then
                Return _dal.Grabar(_DetallePlanServicio)
            Else
                Return _dal.Modificar(_DetallePlanServicio)
            End If
        End Function
		Public Function Listar(ByVal _Parametros As Object()) As DataTable
			Dim _dal As New DAL.Servicio.DetallePlanServicio
			Return _dal.Listar(_Parametros)
		End Function
		Public Function Listar() As DataTable
			Dim _dal As New DAL.Servicio.DetallePlanServicio
			Return _dal.Listar()
		End Function
        Public Function Buscar(ByVal intId As Int32) As DataTable
            Dim _dal As New DAL.Servicio.DetallePlanServicio
            Return _dal.Buscar(intId)
        End Function
        Public Function Existe(ByVal intPlan As Int32, ByVal intServicio As Int32) As System.Boolean
            Dim _dal As New DAL.Servicio.DetallePlanServicio
            Return _dal.Existe(intPlan, intServicio)
        End Function
		Public Function Eliminar(ByVal _Parametros As Object()) As System.Boolean
			Dim _dal As New DAL.Servicio.DetallePlanServicio
			Return _dal.Eliminar(_Parametros)
		End Function
    End Class
End Namespace